home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / automa_1 / frmsendk.frm (.txt) < prev    next >
Visual Basic Form  |  1999-08-23  |  2KB  |  54 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSendKey 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Sendkeys to their Computer (Cause things to be typed for them :))"
  5.    ClientHeight    =   855
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   5430
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    Picture         =   "frmSendKey.frx":0000
  13.    ScaleHeight     =   855
  14.    ScaleWidth      =   5430
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.TextBox Text1 
  18.       Height          =   375
  19.       Left            =   120
  20.       TabIndex        =   1
  21.       Top             =   360
  22.       Width           =   5175
  23.    End
  24.    Begin VB.Label Label1 
  25.       BackStyle       =   0  'Transparent
  26.       Caption         =   "Simply type into the textbox.  Your text will not appear, do not worry:"
  27.       BeginProperty Font 
  28.          Name            =   "MS Sans Serif"
  29.          Size            =   8.25
  30.          Charset         =   0
  31.          Weight          =   700
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       ForeColor       =   &H0000FFFF&
  37.       Height          =   255
  38.       Left            =   120
  39.       TabIndex        =   0
  40.       Top             =   120
  41.       Width           =   5175
  42.    End
  43. Attribute VB_Name = "frmSendKey"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. Private Sub Text1_KeyPress(KeyAscii As Integer)
  49. On Error Resume Next
  50. m = Chr(KeyAscii)
  51. frmMain.win.SendData "snk " & m
  52. If Err Then MsgBox Err.Number & Chr(10) & Chr(10) & Err.Description, vbOKOnly + vbCritical, "[ERROR]"
  53. End Sub
  54.